LABEL OOOOOOOOOLINE 00177112CC EX O/R; COMMONS ; F ILE S*ADOLAR/APTL IB; END* /r 

FILEI ADOLAR/APTLIB FRIDAY 04/22/77 12105 PM 

ALGOL DOLLAR CARDS 00001000 

ALGOL COMPILER CONTROL CARDS 00001600 

00001700 
00001800 
VARIOUS OPTIONS ARE AVAILABLE DURING COMPILATION AND MAY BE ACTIVATED OR00001900 
DEACTIVATED BY <COMPIlER CONTROL CARD>S, THESE CARDS ARE USED TQ00002000 
CONTROL THE HANDLING OF SOURCE LANGUAGE INPUT BY THE COMPILER AND MAY BE00002100 
INTERSPERSED ANYWHERE WITHIN THE SOURCE LANGUAGE INPUT. 00002200 

00002300 

SYNTAX! 00002400 

....... 00002500 

00002600 
<C0MPILER CONTROL CARD> :»= <OPTION CONTROL CaRD> 00002700 

<V0ID CARD> 00002800 

00002900 
<0PTI0N GROUP LIST> ::= <EMPTY> / <0PTI0N GROUP LIST> 00003000 

<OPTION GROUP> 00003100 

00003200 
<OPTION GROUP> Jt* <0PTI0N ACTION> <OPTlON LIST> / 00003300 

<PARAMETER> / <EXPLICIT SET> 00003400 

00003500 
<OPTTON ACTI0N> !:= SET / RESET / POP 00003600 

00003700 
<OPTIGN LIST> :j» <EMPTY> / <0PTI0N LlST> <OPTION> 00003800 

00003900 

<QPTION> «:s CARD / CHECK / <LIST 0PTI0NS> / LlSTP / NEW / 00004000 

NEW TAPE / OMIT / $ / PRT / PUNCH / SEGS / 00004100 

SEQ / SEQERR / SEQXEQ / SINGLE / TAPE / VOID / 00004200 

VOIDT / <IDEnTIFIER> 00004300 

00004400 
<LIST 0PTI0NS> Jl* DEBUGN / LISTA / LIST 00004500 

00004600 
<PARAMETER> I!* <ERROR LlMlT> / PAGE / <SEQUENCE INCREMENT> / 00004700 

<SFQUENCE 8ASE> / INFO 00004800 

00004900 
<ERR0R LIMIT> tin LIMIT <UNSIGNEO INTEGER> 00005000 

00005100 
<SFQUENCE INCREMENT> J J* + <UNSJGNED INTEGER> 00005200 

00005300 
^SEQUENCE BASE> M = <UNSIGNED INTEGER> 00005400 

00005500 
<EXPLICIT SET> »:s S(TT <OPTlQN> * <0PTI0N EXPRESSION> 00005600 

00005700 
<OPTTON EXPRESSION> it* <OPTION> / NOT <0PTI0N> 00005800 

00005900 
<VOID CARD> ::= SVOID <VOID RANGE> / SVDIDT <V0ID RANGE> 00006000 

00006100 

._ . <VOID RANGE> Ms <EMpTY> / <V0ID STRING> / "<pR0PER 5TRING> M 00006200 

00006300 
<vniD ST«ING> II* CANY CONTIGUOUS STRING OF CHARACTERS 00006400 

EXCLUDING BLANKS AND QUOTES] 00006500 

00006700 
00006800 



1' 



00006900 

00007000 

00007100 
SEMANTICS! 00007200 
00007300 

00007^00 
THE ABSENCE OF ANY <COMPILER CONTROL CARO>S IN THE COMPILER INPUT00007500 
AUTOMATICALLY SETS THE OPTIONS "CARD" AND "LIST" BY DEFAULT ( I ,F .* 00007600 
IF NO <COMPlLER CONTROL CARD>S ARE INCLUDED IN THE COMPILER INPUT ). 00007700 
THE S-CARD: 00007800 

00007900 
$ CARD LIST 00008000 

00008100 
IS AUTOMATICALLY INCLUDED RY THE COMPILER. 00008200 

00008300 
COMPILER CONTROL CARD INFORMATION MUST APPEAR IN COLUMNS 1-71 OF A00008400 
CARD-IMAGE. COLUMNS 72-80 ARE RESERVED FOR CONTROL INFORMATION AND00008500 
A SEQUENCE NUMBER, 00008600 

00008700 
THE S-SIGN NORMALLY APPEARS IN COLUMN ONE. IF THE S-SIGN APPE ARS00008800 
ANYWHERE ELSE* THE INFORMATION FOLLOWING IT IS STILL RECOGNIZED AS00008900 
CONTROL INFORMATION; HOWEVER* THE CARD-TMAGE MAY BECOME PART OF THE00009000 
NEW SOURCE LANGUAGE FIlE AND WILL APPEAR ON THE LINE PRINTER 0UTPUT00009100 
LISTING* IF ONE IS REQUESTED. THUS* THE FILE "NEWTAPE" MAY CONT AIN00009200 
CONTROL CARDS WHICH HAVE THEIR FIRST DOLLAR SIGN NOT APPEARING IN00009300 
COLUMN ONE. 00009400 

00009500 
THE FUNCTION OF <QPTI0N ACTION>S ON <C0MPILER CONTROL CARD>S IS T000009600 
CHANGE THE CURRENT STATE OF VARIOUS COMPILE* <OPTION>S. ASSOcI ATED00009700 
WITH EACH <0PTI0N> THERE IS A A7-8IT STACK IN WHIcH THE HISTORY 0F00009800 
THE STATES OF THAT <0PTI0N> IS STORED. THE BIT AT THE TOP OF THE00009900 
STACK "REPRESENTS THE CURRENT STATE OF THE <OPTlON>. 00010000 

OOOlOlOO 
AS WITH ANY OTHER PUSH-DOWN STACK MECHANISM* STORED INFORMATION IS00010200 
RETRIEVED ON A LAST-IN FIRST-OUT BASIS. AN <0PTI0N> WHOSE DEF AULT00010300 
VALUE IS "RESET" IS INITIALLY ASSIGNED A STACK FILLED WITH ZEROE S. 00010400 
AN <0PTI0N> WHOSE DEFAULT VALUE IS "SET" IS INITIALLY ASSIGNED A00010500 
STACK WITH A ONE ON TaP AND ZEROES ELSEWHERE. "SET" CAUSES THE00010600 
<0PTI0N> STACKS CORRESPONDING TO THE <0PTI0N>S FOLLOWING IT TO BE00010700 
PUSHED-DOWN ONE BIT AND A ONE TO BE PUT ON TOP OF THESE STACKS, 00010800 
"RESET" CAUSES THE <QPTlON> STACKS CORRESPONDING TO THE <0PTI0N>S00010900 
FOLLOWING IT TO BE PUSHED DOWN ONE BIT AND A ZERO TO BE PUT ON T0P00011000 
OF THESE STACKS. "POP" SIMPLY CAUSES THE <0PTI0N> STACKS 00011100 
CORRESPONDING TO THE <OPTION>S FOLLOWING IT TO BE POPPED, THAT IS*00011200 
THE STACKS ARE PUSHED-UP ONE BIT. 00011300 

00011400 
AN <OPTION LIST> WITH NO <OPTION ACTI0N> CAUSES ALL <OPTION>S WH I CH0001 1500 
APPEAR IN THE LIST TO RE SET* AnD All <OPTlON>S NOT IN THE LIST T000011600 
BE RESET. 000H700 

00011800 
THE FOLLOWING IS A BRIEF DISCUSSION OF EACH <OPTION> AND 00011900 
<PARAMETER>« 00012000 

00012200 

00012300 
BEND THE OPTION BENDC BEGI N-END PAIRS) IN CONJUNCTION WITH00012400 

LIST CAUSES THE SEQUENCE* OF THE "BEGIN" ASSOCIATED 00012410 
WITH EVEACH "END" TO BE PRINTED ON THE LINE BELOW 00012420 



AND TO THE RIGHT GF HTE LINE CONTAINING THE "END". 00012430 

00012500 

00012600 
CARD THE SOURCE PROGRAM IS BEING ENTERED SOLELY FROM00012700 

THE CARD READER. 00012800 

00012900 
CHECK ALL INPUT CARD-IMAGES (WHETHER FROM CARD READER* 0001 3000 

TAPE, OH CAST FILES) WILL BE CHECKED FOR PR0PER0001 3100 
SEQUENCE ORDER. IF THE NEXT CARD-IMAGE TO BE00013200 
COMPILED HAS A LOWER SEQUENCE NUMBER THAN THEO0O13300 
PREVIOUSLY COMPILED CARD* A MESSAGE, "SEQUENCE 00013400 
WARNING", IS PRINTED ABOVE AND TO THE RIGHT OF 00013500 
THE CARD-IMAGE ON THE LINE PRINTER. IF NONE 0F00013600 
THE "LIST" OPTIONS IS SET, THEN THE LINE PR INTER0001 3700 
FlLF- IS OPENED AND THE "SEQUENCE WARNING" MESSAGE0001 3800 
AND THE ASSOCIATED CARD-IMAGE ARE PRINTED. THE00013900 
MESSAGE "SEQUENCE WARNING" IS ONLY A WARNING ANOOOOUOOO 
IS NOT CONSIDERED AN ERROR BY THE COMPILER. 00014100 

00014200 
DEBUGN THE OBJECT CODE PRODUCED BY THE COMPILER IS00014300 

LISTED FOLLOWING EACH SOURCE STATEMENT. "DEBUGN"00014400 
AUTOMATICALLY SETS "LIST" BY DEFAULT. 00014500 

00014600 
$ THIS OPTION MUST APPEAR SOMEWHERE IN COLUMNS 3-7100014700 

INCLUSIVE AND BE PRECEDED BY A BLANK TO ELIMI NATE00014800 
REDUNDANCY. ALL <COMPILER CONTROL CARD>S WH0SE00014900 
DOLLAR SIGNS APPEAR IN COLUMN ONE WILL BE LI STED00015000 
ON THE LINE PRINTER IF ONE OF THE <LIST 0PTI0NS>00015100 
IS SET. 00015200 

00015300 
<IDENTIFIER> \F A WORD ON AN <OPTION CONTROL CARD> IS NOT00015400 

RECOGNIZED AS ONE OF THE COMPILER-DEFINED 00015500 
OPTIONS, THEN IT IS ASSUMED TO BE A USER-DEFINEDOOO 15600 
OPTION. IT MAY BE MANIPULATED EXACTLY AS ANY00015700 
OTHER HPTION. THAT IS, IT MAY BE SET, RESET* 0R00015800 
POPPED. ITS PRIMARY USE IS TO EXPLICITLY SET AND00015900 
RESET THE COMPILER-DEFINED OPTIONS. ALL USER-000 16000 
DEFINED OPTIONS MUST BE LESS THAN 64 CHARACTERSOOO 1 6 100 
IN LENGTH AND UNIQUE IN THEIR LENGTH AND/OROOOl 6200 
UNIQUE IN THEIR FIRST FIVE CHARACTERS, SINCE THE00016300 
COMPILER SCANNER' UPON ENCOUNTERING A USER- 00016400 
DEFINED OPTION, REMEMBERS ONLY THE QPTlON"S 00016500 
....... LENGTH AND FIRST FIVE CHARACTERS. 00016600 

00016700 
FORMAT QUADRUPLE SPACING WILL BE PERFORMED AFTER EACH 00016710 

END riF A PROCEDURE. 00016720 

00016730 
INFO THE APPEARANCE OF THE WORD "INFO" CAUSES THE00016800 

ELBAT AND INFO TABLES OF THE COMPILER TO BE00016900 
DUMPED IMMEDIATELY ONTO THE LINE FILE. THIS 1500017000 
FOR COMPILER DEBUGGING ONLY, AND SHOULD NOT BE00017100 
USED OTHERWISE* SINCE VOLUMINOUS OUTPUT IS 00017200 
PRODUCED. 00017300 

00017400 
LIMIT COMPILATION WILL BE TERMINATED IF THE NUMBER OF00017500 

00017700 
00017800 
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00017900 
00018000 

ERRORS DETECTED BY THE COMPILER EQUALS OR EXCEEDS00018100 
THE <ERROR LIMIT>. 00018200 

00018300 
LISTA THIS <OPTION> CAUSES ALL INPUT TO BE LISTEDOOO 18400 

INCLUDING ALL "OMITTED" CARD-IMAGES (SEE "0MIT"00018500 
<0PTT0N>). 00018600 

00018700 
LIST THE SOURCE PROGRAM INPUT ACTUALLY COMPILED IS00018800 

LISTED. IN ADDITION* THE <0PTI0N> "SEGS" IS ALS000018900 
SET BY DEEaUlT, IF THE <LlST OPTIONS> ARE ALL00019000 
RESET/ THEN ONLY SYNTAX ERROR MESSAGES* SEQUENCEOOO 19100 
FRROR MESSAGES* AND THE ASSOCIATED CARD-I MAGES00019200 
WILL BE LISTEO ON THE PRINTER, 00019300 

00019400 
LISTP IF "LISTP" IS SET AND THE <LlST 0PTlONS> ARE00019500 

RESET* THEN ONLY THE CARD-IMAGES INPUTTED FROM00019600 
THE CARD-READER WILL BE LISTED ON THE LINE00019700 
PRINTER. IF ANY OF THE <LlST OPTIONS> IS SET*00019800 
"LISTP" IS IGNORED, 00019900 

00020000 
NFW THIS <0PTI0N> CAUSES A NEW SOURCE FILE TO BE00020100 

CREATED ON A TAPE FILE KNOWN AS "NEWTAPE" AND00020200 
LABELED "OCRDlMG". ALL COMPILED CARO-IMAGES AND00020300 
"OMITTED" CSEE "OMIT") CaRD-IMaGES ARE INCLUDED00020400 
IN THE NEW SOURCE LANGUAGE FILE. THE NEWT APE00020500 
FILE WILL UE BLOCKED (X, 56*10), THE "NEWT APE"00020600 
FILE MAY BE LABEL-EQUATED TO DISK* IN WHICH CASE00020700 
IT WILL BE BLOCKED (X*10*150). 00020800 

00020900 
NEW TAPE THIS <0PTI0N> IS IDENTICAL TO THE <0PTI0N> "NEW" .00021000 

00021100 
OMIT ALL CARD-IMAGES INPUTTED, WHETHER FROM CARD* 00021200 

TAPE* OR DISK* WILL NOT BE COMPILED. THAT IS* IF00021300 
ONE OF THE <LIST QPTIONS> IS SET' THEN THE C ARD-00021400 
IMAGES WILL BE LISTED BUT FLAGGED BY THE WORD00021500 
"OMIT"* AND IF THE "NEW" <0PTI0N> IS SET* THEN00021600 
THE CARD-IMAGES WILL BE WRITTEN ON THE "NEWTAPE"0002l 700 
FILE. 00021800 

00021900 
PAGE THE APPEARANCE OF THE WORD "PAGE" CAUSES THE00022000 

OUTPUT LISTING TO BE SKIPPED TO THE TOP OF A NEW00022100 
PAGE. 00022200 

00022300 
PRT RELATIVE PRT AND STACK LOCATIONS ASSIGNED BY THE00022400 

COMPILER WILL BE LISTED ON THE LINE PRINTER. 00022500 

00022600 
PUNCH IF A COMPILED CARD-IMAGE CONTAINS A SYNTAX ERR0R*00022700 

THEN THAT CARD-IMAGE WILL BE PUNCHED IN ITS00022800 
ORIGINAL FORM ON AN ON-LINE CARD PUNCH, 00022900 

00023000 

00023200 

00023300 

00023400 
00023500 

SEGS THE BEGINNING AND ENDING SEGMENT MESSAGES WILL 8E00023600 



SEQ 



5EQERR 

SEQXEQ 



SINGLE 



TAPE 



VOID 



ONLY WHEN 

THE LINE 

"NEWTAPE" 

NUMBERS. 

ASSIGNED 

VALUE OF 

BASE> IS 

<SEQUENCE 



LISTED ON THE LINE PRINTER. SINCE THESE MESSAGES00023700 
ARE AMONG THE THINGS THAT ARE PRINTED MEN ONE 0F00023800 

THE <LIST OPTIONS> SET* THIS OPTION HAS EFFECT00023900 
ALL <LIST OPTIONS> ARE RESET. 00024000 

00024100 
PRINTER OUTPUT LISTING, IF ANY, AND THE00024200 
FILE, IF ANY, WILL CONTAIN NEW SEQUENCE00024300 
AS EACH CARD-IMAGE IS OUTPUT, IT IS00024400 
A SEQUENCE NUMBER EQUAL TO THE CURRENT00024500 
THE <SEQUENCE BASE>. THE <SEQUENCE00024600 
THEN INCREASED BY THE VALUE OF THE00024700 
INCREMENTS IF THE <SEQUENCE BASE> IS00024800 
UNSPECIFIED, THEN A VALUE OF lOOOO IS ASSUMED. 00024900 
IF THE <SEQUENCE INCREMENT> IS UNSPECIFIED, THEN00025000 
A VALUE OF 1000 IS ASSUMED. 00025100 

00025200 
"SEOERR" CAUSES SEQUENCE ERRORS TO BE FLAGGED AS00025300 
COMPILATION ERRORS IF THE "CHECK" <0PTI0N> IS SET00025400 

00025500 
A PROGRAM COMPILED WITH THIS <0PTI0N> SET WILL00025600 
CAUSE EXECUTION TIME TERMINATION ERRORS ( E . G. , 00025700 
DIV BY ZERO, INVALID INDEX, ETC.) TO REFERENCE00025800 
THE SEQUENCE NUMBER WHERE THE ERROR 0CCURRED00025900 
RATHER THAN THE SEGMENT AND ADDRESS. THIS 00026000 
<0PTI0N> HAS MEANING ONLY IF IT PRECEDES THE00026100 
FIRST EXECUTABLE STATEMENT, AND IT MAY NOT BE00026200 
RESET. ONCE IT HAS BEEN SET, ANY ATTEMPT T000026300 
RESET IT WILL BE IGNORED, OPTION IS SET FOR T/S. 00026400 

00026500 
CAUSES THE OUTPUT LISTING TO BE SINGLE-SPACED. 00026600 
WHEN "SINGLE" IS RESET OR NOT SPECIFIED, THE00026700 
OUTPUT LISTING IS DOUBLE-SPACED. 00026800 

00026900 
CARD INPUT IS TO BE MERGED WITH TAPE (OR DISK)00027000 
INPUT. IF MATCHING SEQUENCE NUMBERS OCCUR, THE00027100 
CARD INPUT OVERRIDES THE TAPE INPUT. IF "TAPE"00027200 
IS RE^ET, THE TAPE INPUT IS TOTALLY IGNORED. 00027300 

00027400 
00027500 
00027600 
IF THE <0PTI0N> "VOID" APPEARS ON A "SET"00027700 
CARD, THEN ALL INPUT FROM THE FILES "T APE"00027800 
AND "CARD" IS IGNORED BY THE COMPILER 00027900 
(EXCEPT t CONTROL CARDS, WHERE THE $-S IGN00028000 
APPEARS IN CARD COLUMNS 1 OR 2) UNTIL "V0ID"00028100 
IS RESET OR POPPED INTO A RESET STATE. 00028200 

00028300 

ALL00028400 

AND00028500 

00028700 

00028800 
00028900 
00029000 
"CARD" FILES UP TO BUT NOT INCLUDING ANY00029100 
CARD-IMAGE WITH A SEQUENCE NUMBER THE SAM£00029200 
AS THE <VOID RANGE> WILL BE 1) DISCARDED' 2)00029300 
NOT LISTED IF LISTING IS BEING DONE, AND 3)00029400 



THERE ARE TWO METHODS OF VQlDlNGt 



WHEN THE <VOID CARD> 
CARD-IMAGES INPUTTED 



FORM IS USED, THEN 
FROM THE "TAPE" 



NOT INCLUDED ON ANY "NEWTAPE" FILE IF ONE IS00029500 
BEING CREATED, IF THE <VOlD RANGE> IS00029600 
<EMPTY>* THEN ANY CARD-IMAGES WITH THE SAMEO0029700 
SEQUENCE NUMBER AS THE <VOlD CARD> WILL BE00029800 
DISCARDED, ALONG WITH THE <VOID CARD>. IF00029900 
<V0ID STRING> OR <PROPER STRING> IS LESSQ0030000 
THAN EIGHT CHARACTERS LONG, THEN THE 00030100 
COMPILED WILL RIGHT-ADJUST AND FILL-IN 00030200 
LEADING ZEROES (ON THE LEFT). IF <V0lD00030300 
STRING> OR <PROPER STRING> IS MORE THAN00030400 
FIGHT CHARACTERS LONG, THEN THE COMPILEROO03O500 
WILL USE ONLY THE FIRST EIGHT CHARACTERS (0N00030600 
THE LEFT). 00030700 

00030800 
EITHER THE <0PTI0N> FORM OR THE <V0I0 C ARO00030900 
FORM SHOULD RE USED EXCLUSIVELY. IF BOTH00031000 
FORMS ARE INTERMIXED* THEN THE RESULTS WILL00Q3U00 
BE UNPREDICTABLE. 00031200 

00031300 
VOIDT THIS METHOD OF VOIDING IS IDENTICAL TO USING00031400 

"VOID" (SEE ABOVE) WITH ONE EXCEPTION* ONLY CARD-00031500 

IMAGES FROM THE "TAPE" FILE WILL BE VOIDED, ANY00031600 

CARD-IMAGES From THE "CARD" FILE WHICH FALL00031700 

WITHIN THE <VOID RANGE> OR FALL BETWEEN THE00031800 

SETTING AND RESETTING OF THE "VOIDT" <OPT I0N>00031900 

WILL RE COMPILED. 00032000 

XREF OPTION WILL PROVIDE A INDENTIFIER CROSS-REFERENCE 00032010 

LISTING AT THE THE END OF THE COMPILATION. IT IS 00032020 

RECOMENOED THAT THIS OPTION BE SETPRIOR TO 00032030 

Tfl THE FIRST "BEGIN" OF THE PROGRAM AND RE* 00032040 

MAIN SET UNTIL END Oq PROGRAM. 00032050 

00032100 
EXAMPLES; 00032200 

-"". ..". 00032300 

00032400 

SCARD LIST SINGLE 00032500 

STAPE LIST SINGLE PRT CHECK SEQXEQ 00032600 

$ OEBUGN TAPE 00032700 

S SET LIST PRT TAPE 00032800 

S RESET TAPE* PRT 00032900 

STAPE NEW PRT 00033000 

SSET LIST, SINGLE* RESET PRT, NEW 00033100 

SRESET LIST 00033200 

STAPE NEW TAPE 00033300 

S INFO 00033400 

S PAGE 00033500 

s reset tape page 00033600 

s set info check 00033700 

(Info table will be dumped, info cannot be set/reset) 00033300 

sset 0mit=debugging 00033900 

s set 0mit=n0t algol 00034000 

00034200 
00034300 
00034400 

00034500 

S SET OMlTsDUMDUM 00034600 

SSET 0MIT«N0T PRT 00034700 



$ POP OMIT 00034800 

ADDITIONAL DOLLAR-CARD SIDE AFFECTS IN ALGOL 00034900 

.......... ...... .... .... . .. . 00035000 

It A NINES CARD IS NO LONGER NEEOFD IN A PATCH DECK WHEN 00035100 

MERGING WITH TAPE INPUT. 00035200 

00035300 

2. THE "CARD" INPUT FILE IS CLOSED IMMEDIATELY AFTER THE 00035400 
"END-OF-FILE" CARD IS READ* INSTEAD OF AT END OF COMPIL- 00035500 
ATION, 00035600 

00035700 

3. "SGL H IS NO LONGER RECONlZED AS A RESERVED DOLLAR CARD 00035800 
OPTION, "SINGLE" MUST BE USED. 00035900 

00036000 

4. UNRECONIZED OPTIONS ARE ASSUMED TO BE USER DEFlNDED 00036100 
DOLL-CARD OPTIONS, 00036200 

00036300 

5. THE NUMBER OF CARDS PROCESSED IS NOW PRINTED AT THE BOTTOM 00036400 
OF THE COMPILE TIME LISTING. ( IF LISTING REQUESTED) 00036500 

00036600 

6. "4V0ID" MAY NOW BE USED TO VOID RECORDS IN THE MIDDLE OF 00036700 
A COMMENT. 00036800 

00036900 
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